home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zi.d64 / func.rblock < prev    next >
Text File  |  2007-03-01  |  361b  |  16 lines
  1. 0660 ╞╒╬├ RBLOCK$(T#,S#) ├╠╧╙┼─
  2. 0670   ─╔═ DAT$ ╧╞ 256
  3. 0680   ╔═╨╧╥╘ PA$,ERROR
  4. 0690   ╘╥┴╨ 
  5. 0700     ╧╨┼╬ ╞╔╠┼ 1,"U9:#/S6/D+",╥┼┴─
  6. 0710     ╨┴╙╙ "U1:6,0,"+PA$(T#,S#),9
  7. 0720     ╨┴╙╙ "B-P:6,0",9
  8. 0730     DAT$:=╟┼╘$(1,256)
  9. 0740     ├╠╧╙┼ ╞╔╠┼ 1
  10. 0760   ╚┴╬─╠┼╥ 
  11. 0770     ├╠╧╙┼ ╞╔╠┼ 1
  12. 0780     ERROR(3,╞┴╠╙┼)
  13. 0800   ┼╬─╘╥┴╨ 
  14. 0805   ╥┼╘╒╥╬ DAT$
  15. 0810 ┼╬─╞╒╬├ RBLOCK$
  16.